Imports System.Data.SqlClient

Public Class FrmBedrijf

    Private mintBedrijvenID As Integer

    Public Sub SchermTonen(ByVal intBedrijvenID As Integer)

        mintBedrijvenID = intBedrijvenID

        'Nieuwe of bestaande klant
        If mintBedrijvenID = 0 Then
            Bedrijfnieuw()
        Else
            BedrijfOphalen()
        End If

        Me.ShowDialog()

    End Sub

    Private Sub Bedrijfnieuw()
        TxtAdres.Text = ""
        TxtBedrijvenID.Text = ""
        TxtBedrijfsNaam.Text = ""
        TxtPlaats.Text = ""
        TxtPostcode1.Text = ""
        TxtPostbus.Text = ""
        TxtPostcode2.Text = ""
        TxtTelefoon.Text = ""
        TxtFax.Text = ""

    End Sub

    Private Sub BedrijfOphalen()
        Dim strsql As String = "Select * from Bedrijven " & "Where BedrijvenID = " & mintBedrijvenID

        'Maak Connection, Command en DataReader aan
        Dim objConnection As New SqlConnection(My.Settings.Docregdata2ConnectionString)
        Dim objCommand As New SqlCommand(strsql, objConnection)

        objCommand.Connection.Open()

        Dim objDataReader As SqlDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Lees Data
        objDataReader.Read()

        'Bepaal of klant gevonden is
        If objDataReader.HasRows = True Then

            'DbNull wegwerken
            If Not IsDBNull(objDataReader("Adres")) Then
                TxtAdres.Text = objDataReader("Adres").ToString()
            End If

            TxtBedrijvenID.Text = mintBedrijvenID

            'DbNull wegwerken
            If Not IsDBNull(objDataReader("Bedrijfsnaam")) Then
                TxtBedrijfsNaam.Text = objDataReader("Bedrijfsnaam").ToString()
            End If

            'DbNull wegwerken
            If Not IsDBNull(objDataReader("Plaats")) Then
                TxtPlaats.Text = objDataReader("Plaats").ToString()
            End If

            'DbNull wegwerken
            If Not IsDBNull(objDataReader("Postcode 1")) Then
                TxtPostcode1.Text = objDataReader("Postcode 1").ToString()
            End If

            'DbNull wegwerken
            If Not IsDBNull(objDataReader("Telefoon")) Then
                TxtTelefoon.Text = objDataReader("Telefoon").ToString()
            End If

            'DbNull wegwerken
            If Not IsDBNull(objDataReader("Fax")) Then
                TxtFax.Text = objDataReader("Fax").ToString()
            End If

            'DbNull wegwerken
            If Not IsDBNull(objDataReader("Postbus")) Then
                TxtPostbus.Text = objDataReader("Postbus").ToString()
            End If

            'DbNull wegwerken
            If Not IsDBNull(objDataReader("Postcode 2")) Then
                TxtPostcode2.Text = objDataReader("Postcode 2").ToString()
            End If

        End If



    End Sub

    Private Sub Bedrijfopslaan()
        Dim strsql As String = "Select * from Bedrijven " & "Where BedrijvenID = " & mintBedrijvenID

        'Maak Connection, Command en DataReader aan
        Dim objConnection As New SqlConnection(My.Settings.Docregdata2ConnectionString)

        Dim objDataAdapter As SqlDataAdapter
        objDataAdapter = New SqlDataAdapter(strsql, objConnection)

        Dim objCommandbuilder As SqlCommandBuilder
        objCommandbuilder = New SqlCommandBuilder(objDataAdapter)

        Dim objDataset As New DataSet
        Dim objdatarow As DataRow

        objDataAdapter.Fill(objDataset, "BedrijvenDataTable")

        'Bepaal of het een nieuwe of een bestaande klant is
        If mintBedrijvenID = 0 Then 'Nieuw
            objdatarow = objDataset.Tables("BedrijvenDataTable").NewRow
            Bedrijfvullen(objdatarow)
            objDataset.Tables("BedrijvenDataTable").Rows.Add(objdatarow)
        Else    'Bestaand

            objdatarow = objDataset.Tables("BedrijvenDataTable").Rows(0)
            Bedrijfvullen(objdatarow)
        End If

        'Sla Mutatie daadwerkelijk op
        objDataAdapter.Update(objDataset.Tables("BedrijvenDataTable"))

    End Sub

    Private Sub Bedrijfvullen(ByRef objDataRow As DataRow)

        'Neem waarden uit scherm over
        objDataRow("Bedrijfsnaam") = TxtBedrijfsNaam.Text
        objDataRow("Adres") = TxtAdres.Text
        objDataRow("Postcode 1") = TxtPostcode1.Text
        objDataRow("Plaats") = TxtPlaats.Text
        objDataRow("Postbus") = TxtPostbus.Text
        objDataRow("Postcode 2") = TxtPostcode2.Text
        objDataRow("Telefoon") = TxtTelefoon.Text
        objDataRow("Fax") = TxtFax.Text

    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

        Bedrijfopslaan()

    End Sub
End Class